home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013b.dsk / WHOOPS.bas < prev   
BASIC Source File  |  2003-06-12  |  769b  |  15 lines
  1. 5  REM WRITTEN 1978 BY PR ZACHEIS
  2. 10 PZ = 10:ZP = 9
  3. 15  HGR : HOME : HTAB 15: VTAB 22: FLASH : PRINT "WHOOPS"
  4. 20  POKE 230,64: HCOLOR= 3: HPLOT 0,0: CALL 62454
  5. 25  FOR P = 1 TO 3000: NEXT P
  6. 30  POKE  -16300,0: POKE 230,32: POKE  -16302,0: HCOLOR= 3: HPLOT 0,0: CALL 62454: HCOLOR= 0
  7. 35  NORMAL 
  8. 40  FOR TIMES = 0 TO 3: POKE  -16299,0: POKE 230,32: GOSUB 1000: POKE  -16300,0: POKE 230,64: GOSUB 1000: NEXT TIMES
  9. 50  TEXT : HTAB 15: VTAB 10: PRINT "PRETTY EH?"
  10. 60  END 
  11. 1000 PZ = PZ -1
  12. 1010  FOR X = O TO 279  STEP PZ:Y = 0: HPLOT 138,95 TO X,Y: NEXT X
  13. 1020  FOR Y = 0 TO 191  STEP PZ:X = 279: HPLOT 138,95 TO X,Y: NEXT Y
  14. 1030  FOR X = 279 TO 0  STEP  -PZ:Y = 191: HPLOT 138,95 TO X,Y: NEXT X
  15. 1040  FOR Y = 191 TO 0  STEP  -PZ:X = 0: HPLOT 138,95 TO X,Y: NEXT Y: RETURN